home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / avalanch.exe / AVALANCH / ALIASES.INI next >
Encoding:
INI File  |  1997-04-02  |  9.1 KB  |  228 lines
  1. [Aliases]
  2. n0=hello {
  3. n1=  me 4(»`'╖.╕(»`'╖.╕ _______________ ╕.╖'┤»)╕.╖'┤»)
  4. n2=  me 4(»`'╖.╕(»`'╖.╕ ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ ╕.╖'┤»)╕.╖'┤»)
  5. n3=  me 4----==>>>>-------> 4 $+ $$1 $+ 4 <------<<<<==----
  6. n4=  me 4(_╕.╖'┤(_╕.╖'┤ ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ `'╖.╕_)`'╖.╕_)
  7. n5=  me 4(_╕.╖'┤(_╕.╖'┤ »»»»»»»»»»»»»»» `'╖.╕_)`'╖.╕_)
  8. n6=}
  9. n7=shower {
  10. n8=  /me showers $$1 with confetti 2~;``*~`;.~``~`* 4 $+ $$1 $+ 2 ~`;. ~`;.*`;.`~`~`*~` ;.~ 4 $+ $$1 $+ 2 `;.*`;.`~;.*`;.`~;`~ 4 $+ $$1 $+ 2 `*~` ; ;.*`;.``~`*~`. 4 $+ $$1 $+ 2 ~``~` *~`;.~`;.*`;.4 $+ $$1 $+ 2`~`~`*~`;~`;~`;.*``` * 4 $+ $$1 $+ 2 ~`; ~``~`*~` 4 $+ $$1 $+ 2 ~`; ~``~`
  11. n9=}
  12. n10=flag {
  13. n11=  say 0,12* * * * * * * * * *4,4oooooooooooooooooooooooooooo
  14. n12=  say 0,12* * * * * * * * * *
  15. n13=  say 0,12* * * * * * * * * *4,4oooooooooooooooooooooooooooo
  16. n14=  say 0,12* * * * * * * * * *
  17. n15=  say 4,4ooooooooooooooooooooooooooooooooooooooooooooooo  
  18. n16=  say    
  19. n17=  say 4,4ooooooooooooooooooooooooooooooooooooooooooooooo  
  20. n18=  say    
  21. n19=  say 4,4ooooooooooooooooooooooooooooooooooooooooooooooo  
  22. n20=}  
  23. n21=ascii {
  24. n22=  set %rk *1
  25. n23=  %rk = $replace(%rk,a,σ)
  26. n24=  %rk = $replace(%rk,b,▀)
  27. n25=  %rk = $replace(%rk,c,⌐)
  28. n26=  %rk = $replace(%rk,d,╨)
  29. n27=  %rk = $replace(%rk,e,δ)
  30. n28=  %rk = $replace(%rk,f,f)
  31. n29=  %rk = $replace(%rk,g,g)
  32. n30=  %rk = $replace(%rk,h,H)
  33. n31=  %rk = $replace(%rk,i,╬)
  34. n32=  %rk = $replace(%rk,j,j)
  35. n33=  %rk = $replace(%rk,k,k)
  36. n34=  %rk = $replace(%rk,l,ú)
  37. n35=  %rk = $replace(%rk,m,m)
  38. n36=  %rk = $replace(%rk,n,±)
  39. n37=  %rk = $replace(%rk,o,≡)
  40. n38=  %rk = $replace(%rk,p,■)
  41. n39=  %rk = $replace(%rk,q,╢)
  42. n40=  %rk = $replace(%rk,r,«)
  43. n41=  %rk = $replace(%rk,s,º)
  44. n42=  %rk = $replace(%rk,t,t)
  45. n43=  %rk = $replace(%rk,u,╡)
  46. n44=  %rk = $replace(%rk,v,v)
  47. n45=  %rk = $replace(%rk,w,W)
  48. n46=  %rk = $replace(%rk,x,╫)
  49. n47=  %rk = $replace(%rk,y,Ñ)
  50. n48=  %rk = $replace(%rk,z,z)
  51. n49=  %rk = $replace(%rk,?,┐)
  52. n50=  %rk = $replace(%rk,!,í) 
  53. n51=  %rk = $replace(%rk,>,╗) 
  54. n52=  %rk = $replace(%rk,<,½) 
  55. n53=  %rk = $replace(%rk,1,╣)
  56. n54=  %rk = $replace(%rk,2,▓)
  57. n55=  %rk = $replace(%rk,3,│)
  58. n56=  %rk = $replace(%rk,+,▒)
  59. n57=  %rk = $replace(%rk,0,0)       
  60. n58=  say %rk
  61. n59=  unset %rk
  62. n60=}
  63. n61=time {
  64. n62=  if ($left(1,$time) == 0) {
  65. n63=    %time = 12: $+ $gettok($time,2,58) $+ : $+ $gettok($time,3,58) $+ a
  66. n64=  }
  67. n65=  elseif ($chr(58) isin $left(2,$time)) {
  68. n66=    %time = $left(1,$time) $+ : $+ $gettok($time,2,58) $+ : $+ $gettok($time,3,58) $+ a
  69. n67=  }
  70. n68=  elseif ($left(2,$time) < 12) {
  71. n69=    %time = $time $+ a
  72. n70=  }
  73. n71=  elseif ($left(2,$time) == 12) {
  74. n72=    %time = 12: $+ $token(2,58,$time) $+ : $+ $gettok($time,3,58) $+ p
  75. n73=  }
  76. n74=  else {
  77. n75=    %time2 = $left(2,$time) - 12
  78. n76=    %time = %time2 $+ : $+ $gettok($time,2,58) $+ : $+ $gettok($time,3,58) $+ p
  79. n77=  }
  80. n78=}
  81. n79=  timeon {
  82. n80=    %timeonline = $ctime - %online
  83. n81=    %hrz = %timeonline / 3600
  84. n82=    %hrz2 = %hrz * 3600
  85. n83=    %timeonline = %timeonline - %hrz2
  86. n84=    %minz = %timeonline / 60
  87. n85=    %minz2 = %minz * 60
  88. n86=    %timeonline = %timeonline - %minz2
  89. n87=  }
  90. n88=  atime { return %time }
  91. n89=  tonline { return %hrz $+ h $+ %minz $+ m $+ %timeonline $+ s }
  92. n90=  refresh {
  93. n91=  }
  94. n92=  awaymsg { ame is away! %echo ( $+ %awaymsg $+ ) (Away since: $+ %awaysince $+ ) (Away for: $+ %awaymins $+ mins) (Pager: $+ %pager $+ ) }
  95. n93=}
  96. n94=wall {
  97. n95=  .onotice # %echo $+ (%4WallOps( $+ $opnick(0,#) $+ ) $+ / $+  $+ # $+ %) *1
  98. n96=  echo 1(4To Ops1) 1 $+ %echo  (%4WallOps( $+ $opnick(0,#) $+ ) $+ / $+  $+ # $+ %) *1 $+ 
  99. n97=}
  100. n98=ad { me is running %echo v5.0 by [Sabbath] 1(4 $+ $read c:\avalanch\data.dll $+ 1) (4http://www.scripterz.com1) }
  101. n99=}
  102. n100=mass {
  103. n101=if ($1 == d) {
  104. n102=  :massd
  105. n103=  inc %massd
  106. n104=  inc %opn
  107. n105=  if ($opnick(%opn,#) == $me) { inc %opn }
  108. n106=  if ($opnick(%opn,#) == $null) { mode # -oooo %massdn | unset %massdn | unset %massd | unset %opn | halt }
  109. n107=  set %massdn %massdn $opnick(%opn,#)
  110. n108=  if (%massd == %modes) { mode # -oooo %massdn | unset %massdn | unset %massd }
  111. n109=  goto massd
  112. n110=}
  113. n111=if ($1 == o) {
  114. n112=  :masso
  115. n113=  inc %masso
  116. n114=  inc %nopn
  117. n115=  if ($nopnick(%nopn,#) == $me) { inc %nopn }
  118. n116=  if ($nopnick(%nopn,#) == $null) { mode # +oooo %masson | unset %masson | unset %masso | unset %nopn | halt }
  119. n117=  set %masson %masson $nopnick(%nopn,#)
  120. n118=  if (%masso == %modes) { mode # +oooo %masson | unset %masson | unset %masso }
  121. n119=  goto masso
  122. n120=}
  123. n121=if ($1 == v) {
  124. n122=  :massv
  125. n123=  inc %massv
  126. n124=  inc %vn
  127. n125=  if ($nick(%vn,#) == $me) { inc %vn }
  128. n126=  if ($nick(%vn,#) == $null) { mode # +vvvv %massvn | unset %massvn | unset %massv | unset %vn | halt }
  129. n127=  set %massvn %massvn $nick(%vn,#)
  130. n128=  if (%massv == %modes) { mode # +vvvv %massvn | unset %massvn | unset %massv }
  131. n129=  goto massv
  132. n130=}
  133. n131=if ($1 == dv) {
  134. n132=  :massuv
  135. n133=  inc %massuv
  136. n134=  inc %uvn
  137. n135=  if ($nick(%uvn,#) == $me) { inc %uvn }
  138. n136=  if ($nick(%uvn,#) == $null) { mode # -vvvv %massuvn | unset %massuvn | unset %massuv | unset %uvn | halt }
  139. n137=  set %massuvn %massuvn $nick(%uvn,#)
  140. n138=  if (%massuv == %modes) { mode # -vvvv %massuvn | unset %massuvn | unset %massuv }
  141. n139=  goto massuv
  142. n140=}
  143. n141=if ($1 == nk) {
  144. n142=  %mnk = 0
  145. n143=  :mnk
  146. n144=  inc %mnk
  147. n145=  if ($nopnick(%mnk,#) == $null) { unset %mnk | halt }
  148. n146=  kick # $nopnick(%mnk,#) 4 $+ *2 $+ )(4Number: $+ %mnk $+ 
  149. n147=  goto mnk
  150. n148=}
  151. n149=if ($1 == m) {
  152. n150=  %m = 0
  153. n151=  :m
  154. n152=  inc %m
  155. n153=  if ($nick(%m,#) == $me) { goto m }
  156. n154=  if ($nick(%m,#) == $null) { msg %mn (4MassMsg) (4 $+ *2 $+ ) | unset %m | unset %mn | halt }
  157. n155=  if (%mn == $null) { set %mn $nick(%m,#) }
  158. n156=  else { set %mn %mn $+ , $+ $nick(%m,#) }
  159. n157=  goto m
  160. n158=}
  161. n159=if ($1 == n) {
  162. n160=  %n = 0
  163. n161=  :n
  164. n162=  inc %n
  165. n163=  if ($nick(%n,#) == $me) { goto n }
  166. n164=  if ($nick(%n,#) == $null) { notice %nn (4MassNotice) (4 $+ *2 $+ ) | unset %n | unset %nn | halt }
  167. n165=  if (%nn == $null) { set %nn $nick(%n,#) }
  168. n166=  else { set %nn %nn $+ , $+ $nick(%n,#) }
  169. n167=  goto n
  170. n168=}
  171. n169=}
  172. n170=/back {
  173. n171=%backtext = "" | if ($1 = -d) { %text = *2 } | else { %text = *1 } | %i = $len(%text) + 1 | :next | dec %i 1
  174. n172=if (%i = 0) { 
  175. n173=  if ($1 = -d) { say º %backtext | halt } 
  176. n174=  else { say %backtext | halt } 
  177. n175=}
  178. n176=if ($asc($mid(%i,1,%text)) = 32) { %backtext = %backtext $+ á | goto next }
  179. n177=%backtext = %backtext $+ $mid(%i,1,%text) | goto next
  180. n178=}
  181. n179=/fcaps {
  182. n180=%final = "" | %i = 0 | :next | inc %i | %word = $token(%i,32,*1) | if (%word == $null) { say %final | halt }
  183. n181=%len = $len(%word) | %firstpart = $left(1,%word) | %firstpart = $upper(%firstpart) | %temp = %len - 1 | %rest = $right(%temp,%word) 
  184. n182=if (%rest == $null) { %final = %final %word | goto next } | %word = %firstpart $+ %rest | %final = %final %word | goto next
  185. n183=}
  186. n184=leet %leettext = $upper(*1) | %leettext = $replace(%leettext,A,a) | %leettext = $replace(%leettext,E,e) | %leettext = $replace(%leettext,I,i) | %leettext = $replace(%leettext,O,o) | %leettext = $replace(%leettext,U,u) | %leettext = $replace(%leettext,Y,y) | say %leettext
  187. n185=rcaps %rcapstext = "" | %i = 0 | :next | inc %i | if (%i > $len(*1)) { say %rcapstext | halt } | if ($asc($mid(%i,1,*1)) = 32) { %rcapstext = %rcapstext $+ á | goto next } | if ($rand(1,2) = 1) { %rcapstext = %rcapstext $+ $upper($mid(%i,1,*1)) | goto next } | else { %rcapstext = %rcapstext $+ $lower($mid(%i,1,*1)) | goto next }
  188. n186=upv %leettext = $lower(*1) | %leettext = $replace(%leettext,a,A) | %leettext = $replace(%leettext,e,E) | %leettext = $replace(%leettext,i,I) | %leettext = $replace(%leettext,o,O) | %leettext = $replace(%leettext,u,U) | %leettext = $replace(%leettext,y,Y) | say %leettext
  189. n187=}
  190. n188=block {
  191. n189=set %bk $$?1="EnteráText" *2
  192. n190=%bk = $replace(%bk,a,[A])
  193. n191=%bk = $replace(%bk,b,[B])
  194. n192=%bk = $replace(%bk,c,[C])
  195. n193=%bk = $replace(%bk,d,[D])
  196. n194=%bk = $replace(%bk,e,[E])
  197. n195=%bk = $replace(%bk,f,[F])
  198. n196=%bk = $replace(%bk,g,[G])
  199. n197=%bk = $replace(%bk,h,[H])
  200. n198=%bk = $replace(%bk,i,[I])
  201. n199=%bk = $replace(%bk,j,[J])
  202. n200=%bk = $replace(%bk,k,[K])
  203. n201=%bk = $replace(%bk,l,[L])
  204. n202=%bk = $replace(%bk,m,[M])
  205. n203=%bk = $replace(%bk,n,[N])
  206. n204=%bk = $replace(%bk,o,[O])
  207. n205=%bk = $replace(%bk,p,[P])
  208. n206=%bk = $replace(%bk,q,[Q])
  209. n207=%bk = $replace(%bk,r,[R])
  210. n208=%bk = $replace(%bk,s,[S])
  211. n209=%bk = $replace(%bk,t,[T])
  212. n210=%bk = $replace(%bk,u,[U])
  213. n211=%bk = $replace(%bk,v,[V])
  214. n212=%bk = $replace(%bk,w,[W])
  215. n213=%bk = $replace(%bk,x,[X])
  216. n214=%bk = $replace(%bk,y,[Y])
  217. n215=%bk = $replace(%bk,z,[Z])
  218. n216=%bk = $replace(%bk,!,[!])
  219. n217=%bk = $replace(%bk,?,[?])
  220. n218=%bk = $replace(%bk,$,[$])
  221. n219=%bk = $replace(%bk,#,[#])
  222. n220=%bk = $replace(%bk,/,[/])  
  223. n221=%bk = $replace(%bk,\,[\])
  224. n222=%bk = $replace(%bk,|,[|])
  225. n223=say %bk
  226. n224=unset %bk
  227. n225=}
  228.